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HAYSTACK POINTING SYSTEM: PERIPHERAL PROGRAMS 


INTRODUCTION 


Each of the programs described in this document was written with an eye 
toward automating, in so far as possible, the manifold "off-line" steps necessary in 
the creation, maintenance and evaluation of the Haystack Pointing System. 

The write-ups have assumed a certain familiarity on the part of the reader 
with regard to system fundamentals, to the SPURT assembler and to the TOPS 
utility routine. 

A brief abstract of each program as well as the name of each author is given 
below: 


LIST 210 A. A. Mathiasen Page 3 


SPURT assembler outputs 210, 211 and 212 are format converted for print - 


ing by the IBM 1401 computer. 
MAGNETIC TAPE DUMP PROGRAM S. J. White Page 13 


The contents of virtually any U-490 produced magnetic tape may be listed 


on the Haystack high-speed printer. A variety of user options is available. 
MAKEA301TP J. D. Drinan Page 16 


This is a pre-assembler program which effectively enables the programmer 


to use the punched card medium as an input to the SPURT assembler. 
PLOTTER (CAL COMP) S. J. White Page 20 


Certain of the recorded outputs of the Haystack Pointing System can be 


presented in the form of Cal Comp plots. 
PUNCHALLOC D. Hafford Page 25 


The Common Storage symbol table maintained on cards is transposed onto 


flexo-tape. 
SYS LOADER J. D. Drinan Page 29 


The single Master Bootstrap System Tape as well as a map of allocated 


memory are produced under the direction of the user. 


TAPECOPY A. A. Mathiasen Page 37 
Most high density binary tapes can be duplicated. 
UPDATER D. M. Hafford Page 38 


Any system program can be added to, replaced or deleted from the particular 


master file tape to which it belongs. 


LIST 210 


INTRODUCTION 


The List 210 program reads the 210, 211, or 212 Fieldata output of the 
SPURT assembler and makes up a BCD output for printing by an IBM 1401 computer 


or similar device. 


INPUT 
A. Tape Input 
Record 1 


00210 
0021 1 
00212 


(not used) 


2-7 Name of program and programmer 
in Fieldata 
0 
not used 
10 32 


Word 1 from this record tells the kind of output. 


Record 2 through n 


Word 


2 - 26 Fieldata information 
27 Spacing control 
28 - 52 Fieldata information 
o3 Spacing control 
26(4 —1) +2 to 264 Fieldata information 
26 4+ 1 Spacing control 


4 stands for the number of output printer lines in this record. Each line con- 


sists of 125 Fieldata characters. 


Record n+ Il (last record) 


Word Upper, _ a Lower . 
l L223 J 12413 
2 11322 22505 


Record n+l has the Fieldata characters for ENDOFDUMP. 
A. The 210 Tape 


In the 210 tape the first line (of Record 2) contains the legend SPURT OUTPUT 
NO.. 210 enclosed in apostrophes. (In the translation, these are interpreted as 
periods. ) 

The second line is a succession of apostrophes and is skipped by the program. 

The third line contains the name of the program and usually the programmer 
and date. 

The fourth line is the legend "NO. OF INSTRUCTIONS m" followed by lines 
of the form “ny thru Ny” until a line exactly like line 1 is encountered. 

The next line after this is a succession of apostrophes. 

The line after this is like the third line above (program name, programmer, 
and date). 

The next line is the column headings 
- CARDS LL CD LABEL TA STATEMENT LOC F JKB Y NOTES. 


Following this are the successive lines of program listing. 
se The 211 or 212 Tape 


Both the 211 and 212 tapes contain a listing of labels and their associated 
addresses. Inthe former, these are alphabetically ordered; in the latter, numeri- 
cally ordered. 

The first line (of Record 2) is the legend "SPURT OUTPUT NO. 21Y" where 
Y is 1 or 2, enclosed in apostrophes. 

The second line is a succession of apostrophes. 


The third line is the program name, programmer and date. 


The fourth line contains the column headings 


- LABEL LOC LABEL LOC LABEL LOC. 
B. Jump Buttons 
I. Key 1 
If Key 1 is depressed at the completion of translation of a logical file, the 


Fieldata input type and the BCD output tape will be rewound, and the program will 


stop. Starting after this will cause the program to reinitialize. 

é Key 2 

If Key 2 is depressed at the completion of translation of a logical file, the 
program will continue with the next logical file of the input. 

i Key 3 

If Key 3 is depressed at the completion of translation of a logical file, the 
Fieldata input tape will be rewound, the BCD output tape will be left where it is, and 
the program will stop. Upon starting, it will translate the next logical file of the 
Fieldata input tape (which presumably will be a newly mounted tape). 
OUTPUT 


The output will be a magnetic tape with the BCD equivalent of the Fieldata 
210, 211, or 212 listing. There will, however, be added a heading including page 
number on each new page. Examples of such a 210, 211, or 212 output listing will be 


found in the Appendix. 
The operation of the keys is printed on the console typewriter. Also printed 


is the current program being translated and the kind of listing. 


OPERATION 


The flow diagram of the program details the operation. 


{ a) es 
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LIST 210 PROGRAM 


(@) C Stort __) 


Release Interrupt Lockout 


| Rewind the Fre/data Input Tape | 


| Set Up Typewriter Interrupt Entrance Fegister | 


te 


| Disable Delta Clock 


Frint Program Operation 


Rewind the BCD Output Tope 


Frepore BCD Tape Parity Message and End-Of-File Message 


| Print Jump Key Options | 


| Later "210" in 3 Parity Message | 


| Get Next Line. This Comes from the Next Record | 
| Write Page One, Line One. “Spurt Output No. 2/0" | 
| Skip Line | 


| Write Name ef Program and Frogrammer | 


Write Number of Jnstructions 
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[ Get Next Line 
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Print Wrong Tape Messoge 


oe ——— oe 
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| Write and Set Up Three-Line Heading 


No 


| Write Next Line of Page 
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GET ON-LINE ROUTINE 


‘ 


we fs 
A" this the Last 
Record 


Obtain Caunt of Lines in Record. 
Set in New Fecard Jest. 


Move Next Line 
| to Fixed Location dine 


| Write EOF on BCD Ovtput Tape | 


Print Pone 
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| Stop 


Rewind Fieldatq Input Tape 
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MAGNETIC TAPE DUMP PROGRAM 


GENERAL 


A Univac 490 program called Magnetic Tape Dump Program has been written 
to list the contents of a magnetic tape on the Haystack high-speed printer. The pro- 
gram has the ability to process a tape in high or low density with an even or odd 
parity, and in BCD, FD, or octal format. It also has the capability of skipping files 
or records, of dumping files or records, and of rewinding a tape. 

Input is from both magnetic tape and the on-line console typewriter. The 
magnetic tape may be mounted on any one of the four tape drives (A, B, C or D). 
Tape drive, density, parity, format, file and record skipping, file and record 
dumping, and rewinding are specified via the console. 


Selected contents of the magnetic tape are printed on the high-speed printer. 
OPERATION 


Mount the tape to be processed on one of the tape drives. The Magnetic Tape 
Dump Program is included as one of the utility programs on the SPURT System Tape. 


To call the program, type (via TOPS): 
LS (| MTDMP 


The Magnetic Tape Dump is also on a separate "321" magnetic tape labeled 
“MGTAPEDUMP." To load the program, mount this tape on one of the tape servos 


(S.) where N = servo where the tape has been mounted, then type: 


LDO Sn O 3210 10000 (¢ s)} 


PS £) 10000 (s\ 


When the program has been called by either method, the following message 


will appear on the on-line console: 
"STANDARD (A,B,C, OR D) OR NO (N)" 


Selecting one of the standard A, B, C, or D tape units followed by a stop code 
(s \ will initiate a listing in octal, high density of many files. To limit the output, 


the program has to be stopped manually by depressing the step-operate switch in 


13 


the operate position. If the program has been stopped manually, clear the printer 
channel before continuing with other tape dumps. 

Selecting "N" (NO) followed by a stop code is " types an output of requests: 
“TAPE -DENSITY -PARITY-FORMAT -SKREC-DPREC-DPFILE-REW.” Answers are 
entered below the line of requests. The program spaces to allow the answers to be 


directly under the appropriate request. Answers to each request are as follows: 


TAPE ~ A, B, C, or D(Uniservo 0, 1, 2, or 3, respectively) 
DENSITY > H or L (High or Low) 

PARITY ~ E or O (Even or Odd)* 

FORMAT - F, B, or D (Field Data, BCD, or Octal) 

SKFILE > Number of files to be skipped before dumping’ 
SKREC ~ Number of records to be skipped before dumping. ' 
DPFILE ~ Number of files to dumped. ' 

DPREC ~ Number of records to be dumped. ? 

REW (REWIND) ~ Y or N (Yes or No) 


During typing of answers if a mistake is made, a carriage return will initiate the 
Output of requests anew. 


The following are examples of typical requests: 
EXAMPLE 1 


STANDARD (A, B, C or D) or NO (N) 

v ® 

TAPE - DENSITY -PARITY - FORMAT -SK FILE -SKREC-DPFILE-DPREC-REW 
A H E B O01 O00 O00 O10 ¥ 

In response to this request, the program will rewind tape, skip one file, 


dump ten records (from the second file) of Tape A, in BCD high density, even parity. 


ee ee sO 8 SS 


*Ability to select parity has been included for special cases. Normally, BCD and 
Fieldata are even parity and octal (binary) is odd. 


+Answer must have 3 decimal digits; for no action, answer OOO. 
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EXAMPLE 2 


STANDARD (A, B, C or D) or NO (N) 


N & 
TAPE -DENSITY -PARITY-FORMAT -SK FILE -SKREC-DPFILE-DPREC-REW 
D L i F O00 000 003 009 N 


In response to this request, the program dumps first three files and nine 


records from the fourth file. From Tape D,in Fieldata, low density, even parity. 
EXAMPLE 3 


STANDARD (A, B, C or D) or NO (N) 
B <s> 
In response to this request, the program dumps the first 511 files from 


Tape B, in octal, high density, odd parity. 


MAKEA301TP 


INTRODUCTION 


A U-490 program is available which permits U-490 users to have their pro- 
gram manuscripts transcribed directly onto IBM cards by the Lincoln Laboratory 
card room facility in a format to be described below. The resulting card deck is 
loaded onto magnetic tape (see 1401 Procedures below for details) by the IBM 1401 
off-line facility. The resulting BCD magnetic tape, then, is the input to the program 
being described, whose output is a SPURT 301 Tape which becomes immediately 


available for compilation by SPURT. 
CARD FORMAT 
A. Label Field 


Columns | through lO of the 80-column card will contain the label (if any) 


associated with this line of SPURT coding. 
B. Continuation Column 


Column Il has been reserved for possible continuation purposes. Leave it 


blank. 


G.: Operator /Operator + VA Field 


Columns 12 through 21 must contain an operator beginning in column 12. 
The operator may stand alone in this field or it may be accompanied by the ie 


operand if the 7 operand is either the “r" (Register) or "e" (Expression) type 


of operand. When both appear in this field, they are separated by exactly one blank. 
D. Operand/Comentary Field 


Columns 22 through 80 comprise this field. Any remaining operands 
(including Vie to be included in this line must begin in column 22. The point 
separator in this field is the comma (,). The commentary field for those operators 
which may have notation (see Special Operators) is defined as beginning in the column 
following the first blank in columns 22 to 80. Commas (point separators in the 


operand field) may be freely used as such in the commentary field. 
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PROGRAM FORMAT 


The first card of every program must have the program label in the label field. 
Additionally the symbol, PROGRAM, appears in the operator field while the program- 
mer's name and the date occupy the operand/commentary field separated by the point 


separator (,). A typical first card might appear: 
SORTER PROGRAM JSMITH, 6/10/65 
No end card should be present. The end of file signals the end of program. 
SPECIAL OPERATORS 
A. DEC 


This pseudo operation (not present in SPURT) permits the entry of fixed-point 
mixed numbers into the SPURT program by means of a pre-assembly conversion of 


the mixed number to its octal integer equivalent. The Format: 


Operator Field Operand Field 
DEC + HI. FFFBDD 


CAUTION: The sum of the decimal places represented by the I's and F's must be 
less than or equal to 9 and the number considered as a decimal integer (decimal 
point removed) must be within the range of the 29-bit word size. (536870912 > IN}) 
The binary point position is indicated by the non-negative decimal integer(s) 
following the B in the format above. A "B" of zero connotes an integer. Depend- 
ing on the number being entered, the number of I's or F's may be zero or non-zero, 


the decimal point may or may not be present, but the B must appear. 
B. TYPET 


The X. operand starts in column 22 and extends to the right in blocks of 
59 columns until the rightmost non-blank column is found. No commentary is per- 
mitted. Commas are permitted in the Ye Operand. NOTE: The vertical bar (|) 


is entered as a dollar sigh ($) 
dal FD 


The count for the FD pseudo-op must appear as the wi Operand in the 
OPERATOR FIELD, i.e., columns 15 or 15 and 16 must contain a decimal 


l? 


count. The D (for decimal) must be present when the count is greater than 7. 
The text starts in column 22 and no commentary is allowed. A count of 
zero results in a search for the rightmost non-blank character which determines how 


many columns are presented to SPURT for assembly. 
D. FORM-TEXT 


Because of the nature of this macro-type operation, no commas are permitted 


in the text portion of the operand field. 
E. Constants 


Upper Half - Lower Half 
For this arrangement, the upper half begins in column 12 and the lower half 


begins in column 22. No point separator is used. 
Whole Word 


Any whole word entry which, because of a preceding minus sign or a trailing 
D (decimal indicator), does not fit entirely in the operator field must be entered by 
the “upper half - lower half" method for octal integers and by the DEC pseudo op 


for decimal integers. 
1401 PROCEDURES 


The card-to-tape procedure at the 1401 is normal except that the card-to-tape 

load program must be the special "80-column loader" written especially for this 
application. 
SUGGESTION: To minimize the possibility of trouble at Haystack, it is probably 
worthwhile loading a given program twice, creating a second back-up file on the same 
BCD tape. 

Print the tape and examine columns 81 to 84 ofthe listing. If zeros are 


present in these columns, the wrong loader has been used. 
U-490 PROCEDURES 


The program that converts the BCD tape to the SPURT 301 tape is called 
MAKEASOILTP. It is currently a utility program on the SPURT tape. 
Mount the SPURT tape on logical O (A). 
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Mount the BCD tape to be converted on logical 2 (C). 
Mount a spare (output 301 tape) on logical 3 (D). 
Under TOPS control 
Type in 
LS U MK 301 (carriage return) 
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PLOTTER (CAL COMP) 


INTRODUCTION 

The Haystack Plotter Program was written to give a graphical representation 
of the recorded output from the Haystack Pointing System. 

The program was written in Fortran to operate on the IBM 7094. The output 
of the program is a tape to be used as an input to an IBM 1401 Computer Program. 
The output of the IBM 1401 Computer Program is plotted on a Cal Comp Plotter. The 
plot size, its scaling, over printing etc., are controlled by parameter cards used 


by the Haystack Plotter Program. 
INPUT 


A magnetic tape produced by the Haystack Printout Program is the primary 
input to the Haystack Plotter Program. Control cards are used by the Plotter Program, 


to control the size of the plot, the scaling, etc. 
OUTPUT 


A plot from the Cal Comp Plotter is the final output using the Haystack Plotter 
Program. The plot is not an output directly from the Haystack Plotter Program, but 
rather an output from an IBM 1401 Computer Program that utilizes as input a mag- 


netic tape generated by the Haystack Plotter Program on the IBM 7094. 
OPERATION 


The Haystack Plotter Program was written in Fortran to be compiled and 
executed on the IBM 7094 computer. 

An IBM compatible BCD magnetic tape, generated by the Printout program 
from the Haystack System Recording Tape, is one of the inputs to the Haystack 


Plotter Program, the other input is from cards, as follows: 
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INPUT CARDS 


Card 1 Col. 
Col. 
Col. 
Col. 
Col. 
Gol; 
Card Col. 


Col. 
Col. 
Card 3 Col. 
Col. 
Col. 
Card 4 Col. 


Col. 


Col. 


Col. 


Card 5 Col. 


The selections of X-Axis versus Y-Axis are: 


1 and 2 

4 and 5 

7 and 8 
12 and 13 
15 and 16 
18 and 19 
1-3 


Start Hour 
Start Minute 
Start Second 
End Hour 
End Minute 
End Second 


X-Axis (for time, leave max and 
min points blank) 


Minimum Point (Floating Point) 
Maximum Point (Floating Point) 
Y-Axis 

Minimum Point (Floating Point) 
Maximum Point (Floating Point) 


" Solid Line Plot (Fixed Point) 
1 Broken Line Plot (Fixed Point) 


Number Points per frame (Fixed 
Point) 


No. Inches in X-axis (Floating 
Point) (Leave Blank for Time) 


No. Inches in Y-Axis (Floating 
Point) 


1 = Completed Request 

= Over Plot (No new scaling) 
Additional Plot same File 
Plot From Next File 


2 
3 
4 


X-Axis 


TIM (TIME) 
TIM (TIME) 
TIM (TIME) 
TIM (TIME) 
AAZ 
AAZ 
AAZ 
AEL 
AEL 
CAZ 


VS. 


Vs. 


VS. 


Vs. 


VS. 


VS. 


VS. 


Vs. 


Vs. 


VS. 


Y -Axis 

AAZ (Actual Azimuth) 
AEL (Actual Elevation) 
CAZ (Command Azimuth) 
CEL (Command Elevation) 
AEL 

CAZ 

CEL 

CAZ 

CEL 

CEL 


These are the only combinations available in the program. 


Each file of each input tape has a title associated with it. The title along with 


the start and end times are written on the output tape to be plotted. Following these 


are the axes, the axes scaling, and the data converted from BCD to plotter units to 


make the curve. 


Plotter Program requirements: 


System; 


Input Tape; 


Output Tape; 


B6 556 LPI 
A6 800 LPI 


Control Cards must follow the program deck 


A sample listing of an Input Tape, and a plot from the Cal Comp Plotter will 


be found in the following pages. 


oa 
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PUNCHA LLOC 


In the Haystack Pointing System certain quantities are of interest to, or shared 
by, many programs. It is essential that separate programs reference the same 
memory cell when using common symbolic notation within a program. A Flexowriter 
tape called the SPURT allocation tape* provides this assurance. This tape is really 
an external symbol table used by the SPURT compiler to equate symbolic labels with 
absolute memory cells. Because it is tedious to update paper tape whenever a change 
is made, a card deck containing this information is maintained. The PUNCHALLOC 


program transfers the card images on magnetic tape to a System Allocation paper 
tape. 
INPUT 


The deck of input cards containing allocation data must be loaded on magnetic 
tape at 556 characters-per-inch density with the 80 column loader at the Building 
J computer facility. 

The card deck consists of a heading card followed by allocation cards inter- 


spersed with comment cards. 


CARD FORMAT 


Heading Card Col. 1-10 Label (must start in column 1) 
Col. 12-21 ALLOCATION 
Col. 22-80 A comma followed by comments, term- 
inated by a blank (these comments will 
be punched) 
Allocation Cards Col. 1-10 Label (must start in column 1) 
Col. 12-16 Location, five digits in octal. 


Col. 17-80 Comments (these will not be punched) 
Comment Cards If column one is blank, none of the card will be punched. 
(This card was designed to expand comments for IBM 1401 
printout, not for U490 application. ) 
OUTPUT 


The format for the punched paper Allocation tape is as follows: 


* SPURT General Reference Manual, Sect. 9, pp. 1 and 2. 


ae 


Label — Allocation 9 Notes - 
Label — Value <- 


Value <« 


5 
a 
2. 
\ 


Label ~ Value «+ 


The notation used is as follows: 


- Carriage Return 

T Upper Case 

st Tab 

a) Point Separator 

l Lower Case 
Period 


PROGRAM LOGIC 


SPURT listings 210, 211, 212 appear in Appendix C. 

At location BEGIN the paper tape punch connected to the U490 is turned on and 
a leader is punched. Buffer control is set to write from BUF 1 first and BUFSW is 
set to alternate output buffers. 

The first card is then read from magnetic tape. All input from magnetic 
tape is accomplished using the subroutine READTAPE. ‘This subroutine reads BCD 
records from tape into a location designated in the calling sequence and checks the 
Status of the tape unit after reading. Control is passed to EOF whenever an end-of- 
file mark is encountered. 

The contents of the operation field (Cols. 12-21) of the card is verified to 
contain the letters ALLOCATION to be certain that the correct input is being used. 
In the event of a mismatch, the program stops and pressing the high-speed button 
will restart the program at the beginning. With no mismatch, the first buffer is 


started with carriage return, upper case, carriage return. 
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Now the location field, up to tne first blank, is converted to Flexowriter 
characters by the subroutine BCDTOFLEXO. The subroutine converts BCD, starting 
with the word in INBUF +B1 and puts each Flexowriter character in a separate word 
Starting at §+B5. Therefore, B! must be set before BCDTOFLEXO is called. 

BS is reset when the buffers are switched and is stepped whenever a character is 
stored. 

A tab is then inserted into the card image immediately ahead of the operation 
field (Col. 11) and the rest of the card, to the first blank, is converted to Flexowriter 
characters. 

Location L14D is the beginning of the main loop. Beginning at this location, 
a carriage return is added to the output buffer, the output buffer control is set up, 
the buffers are switched and output of the full buffer is initiated. 

At location NOTHERCARD the next card is read from tape using READTAPE. 
Column one of this card is checked. If it is blank the card is a comment card, which 
is skipped and another card is read and checked. 

If column one is non-blank the word in the location field of the card is con- 
verted to Flexowriter characters with BCDTOFLEXO, a tab is added to the output 
buffer and the five digit location field is converted. 

Control is then returned to L14D and the program cycles until it is inter- 
rupted when READTAPE finds an end-of-file mark and control is transferred to 
EOF. 

EOF finishes the paper tape with carriage return, lower case, period, period 
and a trailer, turns the paper tape punch off and stops. 


Pressing the high-speed button will recycle the program from the beginning. 
OPERATION 


A. Load the Allocation cards on tape at the density of 556 characters -per-inch 
as one file with the IBM 1401 using the 80 column loader. 


B. Load the program at a convenient location using TOPS. 
C. Mount the BCD input tape on servo 3 (normally drive D). 
D. Start at the load location. 


27 


3-62-4235 
PUNCH ALLOCATION TAPE: FLOW DIAGRAM 
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SYSLOADER 


INTRODUCTION 


The SYSLOADER program is a Haystack Pointing System Peripheral program 
whose major purpose is to load and merge the presently thirty individual system 
programs onto a Master Pointing Program magnetic tape so as to optimize the load- 


ing and operation of the Pointing System. 
INPUT 


Inputs to the program are: 1) Instructions from the user via the teleprinter, 
2) the Master In-Core Programs Tape, 3) the Master Celestial Computation Programs 
Tape and 4) the Master Data Processing Programs Tape. Inputs 2, 3 and 4 are 


generated by the System Updater program and are inthe Spurt 321 format. 
OUTPUT 


Principal output is the Master Bootstrap Pointing Program Tape whose format 
will be discussed in some detail. Additionally, SYSLOADER affords a teleprinter 
type -out which includes a map of allocated memory as well as a log of all proceed- 


ings. An example of this type-out is given in Fig. l. 
OPERATION 


SYSLOADER was designed as an upper loader and is usually loaded by TOPS 
at 70000; the dynamic start point is at load location +2 hence 70002. 

Transfer to this point will cause SYSLOADER to type: 
KEY 1 ON = NO LOG, KEY 2 ON = DUP INPUT... ENTER DATE ETC... 

This is a memory jog to the user which says that if jump key 1 is turned on, 
there will be no type out of the memory map whereas if jump key 2 is turned on, 
all magnetic tape records read from unit 2 (usually servo C) will be copied onto 
unit 3 (usually servo D). Finally, the user is invited to type in any number of 
alphanumeric characters he wishes for identification purposes. ‘The terminating 
character here (as well as elsewhere in SYSLOADER) is the C.R. (carriage return). 

Core memory location 137. at this point contains the entry to Univac's 


utility package known as TOPS. Because this location might be overlayed in the 
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process of making the Master Pointing Program Tape, SYSLOADER transfers the 
contents of this location to the C/S (common storage) register SKIP for later use by 
the control program MCP. 

Now SYSLOADER types out the message ... 

I/C (1) B/S (2) CCP (3) DPP (4) 

which when translated means: to process the Master In-Core Programs Tape enter 
1 followed by a C.R.; for the Master Celestial Programs Tape enter 3 anda 
C.R.; for the Master Data Processing Programs Tape enter 4 andaC.R.; finally, 
if you are ready to make a "bootstrap" record, entera 2 andaC.R. 

It should be noted that the ordering of the activities is left to the user and not 
determined by the program. ‘Thus, it is that SYSLOADER can be used just to load 
the Master In-Core Program Tape or just to duplicate any one of the three master 
tapes that are inputs to the program. We shall, however, follow the program in 
what is the normal course of events. We shall assume that the user has on hand an 
up-to-date version of each of the input masters and wishes to obtain a Master Boot- 


strap Pointing Program System Tape and a type-out of allocated memory. 
A Phase I: Processing the Master In-Core Programs Tape 


In answer to the question posed above, the user would first elect choice (1), 
the in-core programs. 

Next, SYSLOADER will type -out 
B/A (UNLESS 6000) 
which asks where in memory (base address) you wish to originate the system. If 
the answer is not 6000, type inupto 5 octal digits and C.R. or if 6000 is your 
choice only C.R. (Memory locations ~ 0 to ~ 6000 contain TOPS. Because the Point- 
ing System and TOPS can coexist, system origin has been arbitrarily placed at 
6000. If the need for more storage arises, there is nothing to prevent electing a 
lower system origin, say 200., at this point. ) 

Now SYSLOADER types out the headings of the columns as follows: 
SYSTEM PROGRAM PROGRAMMER + DATE FIRST LAST RUN INIT 
NA ME NAME LOCTN LOCTN ENTRY ENTRY 
and proceeds to load program after program provided each is in the correct format, 


density, parity, etc. Each program is loaded one behind the other with a spacing 
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between programs that can be varied. As each program is loaded, that program's 
five fieldata character "name" is placed in the SYSNAMES table in C/S and its U-TAG 
is added to the SYSENTRIES table in C/S. When SYSLOADER detects that it is load- 
ing the control program, MCP, that U-TAG is additionally placed in C/S register 
MCPGM for reasons to be seen later. 

This business of stacking the individual programs goes on until either an 
incompatible format (non Spurt 321 or 320) or an end-of-file is detected. If at 
this point SYSLOADER has been copying the input records onto magnetic tape unit 
3, it willtype... 
EOF ON D (1) 
meaning. . . if you desire to write an end-of-file on servo D (unit 3) answer with 
a | andaC.R. Otherwise, justa C.R. In either event the program again asks the 
basic question... 
IC (1) B/S (2) CCP (3) DPP (4) 

Assuming we have arrived here as a result of an end-of-file being found on 
the Master In-Core Program Tape, which was just correctly read and loaded, we are 
now ready to copy out this image of core memory onto tape as a bootstrap record and 


this is done in Phase II. 


B. Phase II: Bootstrap 

Bootstrap" is the name given to the mechanism whereby a magnetic tape of 
indefinite length in the correct format is automatically loaded, checksummed, and 
executed by the UNIVAC hardware. The Pointing Program bootstrap record is made 
on unit § (normally servo A). 

Thus when the bootstrap option is elected, SYSLOADER positions the tape on 
unit § to the loadpoint since the bootstrap record (by definition) is the first record 
on a bootstrap tape. 

Now the question.. . 

FWA 

which asks the user to type in upto 5 octal digits to specify the first word address 
of the record to be bootstrapped. A carriage return here is equivalent to answering 
140, and this is usually the case since it permits recording TOPS which is normally 


8 
in core at this time. 
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Next the question... 


LWA 


which analogously is the last word address of the block. A carriage return is equi- 
valent to typing 7/776. (The checksum must be placed in LWA + 1 = 77777.) Thus, 
it is that virtually all of core memory is set up for recording in the single bootstrap 
record. Before the record is actually written, two things occur: 

First, a JPL(MCPGM) is inserted in the record such that this will be the 
instruction that is executed when the record is successfully bootstrapped. Thus it 
is that control will pass automatically to the control program, MCP, upon boot- 
strapping irrespective of where in memory SYSLOADER has placed it. 

Second, the entire block which is about to be written is check summed and 
this sum complemented is made the last word in the block. 

Now the record is written. If the record is non-normal in any respect, 
SYSLOADER repositions the tape and retries indefinitely. A successful recording 
results in the typing of 
B/S DONE... 
followed again by the basic question 
I/C (1) B/S (2) CCP (3) DPP (4) 

The tape on Unit 9% is now positioned at the end of the bootstrap record. The 
next step is to add the individual Celestial Computation Programs and this is done in 


Phase III. 
Ss Phase III: Processing the Master Celestial Computation Programs Tape 


As SYSLOADER loads the in-core programs, it keeps a running base address, 
i.e., where in memory the next program will go. Thus, it is that when CCP is 
elected as an option SYSLOADER willask... 
B/A OTHER THAN NNNNN 
when NNNNN is the location where the next in-core program would have gone. If 
this location is satisfactory, the user merely touches the carriage return. Otherwise 
he enters a five digit octal number and this will be the common origin of all the 


celestial computation programs. 
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Now SYSLOADER begins the process of reading in the celestial computation 
programs one after the other. As each is read in to the common origin specified 
SYSLOADER forms a self-contained image of the program which is written out as 
a single record for each program onto the Master Pointing Program Tape on unit 
Y. Each program is written out in such a way that it can be later loaded by MCP in 
the highly efficient UNIVAC search read mode. The format of these search mode 
records is included in Fig. 2 - Layout of the Master Pointing Program System Tape. 

As SYSLOADER loads and records the celestial computation programs, a 
note is made as to the amount of storage required by the largest of these programs. 
This is done so that SYSLOADER will be able to recommend a common origin for the 
Data Processing Programs which must occupy a place in core memory behind the 
longest celestial computation program. 

Loading of the celestial computation programs is terminated upon encounter 
of a change of format or an end-of-file on the Master Celestial Computation Programs 
Tape. At this point SYSLOADER asks... 
EOF (1) 
which in effect says that if the celestial computation program just loaded was the 
last one to be loaded and if there are no data processing programs to be added to the 
Master Pointing Program Tape, an end-of-file should be written here and will be 
written by responding witha Il andaC.R. If no end-of-file is desired merely 
carriage return. And again the basic question. . . 
I/C (1) B/S (2) CCP (3) DPP (4) 

At this point the user may elect to add the last class of programs to the Master 


tape, the Data Processing Programs. 
D. Phase IV: Processing the Master Data Processing Programs Tape 


Here SYSLOADER will type out... 
B/A OTHER THAN MMMMM 
where MMMMM is a five digit octal integer representing a location in memory behind 
the longest celestial computation program at which the data processing programs may 
share a common origin. From this point on the loading of the data processing pro- 
grams exactly parallels that for the celestial computation programs. When this 


phase of loading is completed the user is again invited to write an end-of-file on the 
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Master Tape. Since at this point there is nothing further to add to the tape, the user 


must elect to write the end-of-file. 


Now the user is ready to test the new tape and initiates this procedure by 
pressing the "start Pointing Program" button. This action automatically rewinds the 
tape and activates the bootstrap mechanism. A successful write-out of the bootstrap 


record will be indicated when the type-out TITLE appears on the teleprinter. 
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SYSTEM 


NAME 


MCPGM 
KYBRD 
CORCT 
INTER 

AESCN 
RECRD 
PRLOG 
RADEC 
DY DMP 
CHCOR 
ADSCN 
COCON 
CHPAR 
ACQUI 

PLANP 

WFORD 
TIMEP 

PLOTP 
PRINT 

FRADC 
MOONP 
STARP 

SUNPG 

PLNET 
FXANE 
BELTP 
SATEL 
PDMTR 
RDMTR 


PROGRAM 
NAME 
MCP 
INTERCOM 
CORCT 
INTER 
DUMSCAN 
RECORDING 
PRLOG 
RADEC 
DY DMPPGM 
CHANGECORE 
SCAN 
COCON 
PARAMETER 
ACQUI 
PLANNER 
WESTFORD 
TIMING 
PLOTP 
PRINTOUT 
FXRA DEC 
MOONTRACK 
STARTRACK 
SUNTRACK 
PLANETRACK 
FXAZEL 
BELTP 
SATEL 
RDMTRSCAN 
RADIOMETER 


PROGRAMMER + DATE 


JDD+*6/1/65 
ADAMS-ASSOC#18 JUNE 65 
CLARK*9 JUNE 64 
TEOSTE* 6/3/65 
W.R.CROWTHER#*JAN. 28% 
JDD+tAAM*#4 /28 /65 
WHITE 2 JULY 65 

STY LOS*11 JUNE 65 

S. J. WHITE*6/23/64 

S.J. WHITE*MAR. 25*64 
P. CROWTHER*26 JAN. 65 
P.STY LOS*20 APRIL 65 
MA THIASEN#3 /26 /65 
TEOSTE*6/14/65 
JDD*6 /26 /64 

JDD* 1/29/65 

JDD*4 /21/65 

R. TEOSTE*4/9/65 
SATTEST* 1/28/65 

MA THIASEN*2/17/65 
HJF+DMH «11/30/64 
FRACTMAN* 1/26/65 

HJ F+DMH*11/30/64 
HJF+DMH* 11/30/64 

MA THIASEN#4/20/65 
PONTON#29 OCT. 64 
MCQUILKIN*21 JUNE 65 
P. CROW THER*2 JULY 65 
STY LOS* 18 JUNE 65 


Fig. 1. 
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FIRST 
LOCTN. 


PODAY 
12163 
22954 
24274 
26157 
26173 
26762 
39643 
32397 
32731 
33037 
35116 
37253 
37477 
42454 
42577 
43142 
44372 
44636 
44636 
44636 
44636 
44636 
44636 
44636 
44636 
44636 
54574 
54574 


LAST 
LOCTN. 
12161 
22952 
24272 
26155 
26171 
26769 
39641 
32305 
62727 
33935 
35114 
37251 
37475 
42452 
42575 
43149 
44379 
44634 
5435 
45473 
59619 
53455 
59166 
59595 
4565 
54572 
54461 
62121 
61329 


RUN 
ENTRY 
BOYG2 
12165 
24197 
25573 
26163 
26265 
27901 
31931 
32311 
32733 
33764 
35626 
37255 
4903 1 
42462 
42626 
43511 
44619 
44649 
44649 
45972 
44717 
45037 
45071 
44649 
45592 
52676 
53723 
55953 


INIT 
ENTRY 


BOYl2 
12167 
22956 
24276 
26161 
26175 
26764 
30645 
32473 
32733 
33942 
35129 
37257 
37501 
42456 
42691 
43144 
44374 
44649 
44643 
44649 
44649 
44649 
44649 
44643 
44649 
52652 
53462 
54576 


3-62-4236 
LAYOUT OF MASTER POINTING PROGRAM MAGNETIC TAPE 


T. GROSS FORMAT 


é | ~—«diSL) AE Clete 
0  # £ C 2? Dp Y | f 
, & LG C\|P|P P 7 
Pp Bootstrap Record Pe | a Toe Ped e E 
\o (Memory Cells 140, To 77776,? No We. No,| Vo | No | Vo | } 
E : ! (2 w#1t |Z | nie 
t 7 ee oo oe ee ee 
\ —— £& — j 
“—-Contains all “In-core” Progroms Individual ladividual 
and Tops Utility Program Celestial Date Processing 
Computation Programs 
Pr grams 


ZH. BOOTSTRAP RECORP FORMAT 


WOFD No. = ee COMMENTS 

1= FWA-2 Lwa | FWAWT Formed tn Memory at FWA-2 

2: FWA-S JP-L  |(MCPGM) Indirect Jump ta MCP 

32 FWA —— First Word to Be Restored in Memory = F WA 


— Body of Bootstrap Record 


Last Word in Memory To Be Restored 


n=LWwa iw 
ntfzlLWwAr? Check Sum Complemented = 3 f 
i= FWA-f 


N.S. Recording is Made From FWA-LZ to LWATT 


IZ, SEARCH MODE RECORD FORMAT 


WORD No. COMMENTS 
1= B8/A-2 "NAME " Formed in Memory at Base Address-2 
hi pie =f FWA Where in Memory Program Will Be 
4= B/Ars | U-TAG Working Entry; Initiahization Entry 
1 NAME Five Fieldatao Choracter Nome 
| 
. 
| — Body of Program 
| 
n=Llwa ee ee LWA 
n+1=lWwA+? CS? Check Sum Complemented = ='r. 
——— —— / 


1= FWA 


Fig. 2. Layout of master pointing program 
magnetic tape. 


TAPECOPY 


INTRODUCTION 


To permit duplication of ephemeris tapes, and of the master in-core, celestial, 
and data processing program tapes, a tape copying program (TAPECOPY) was written 
for the U-490. 


INPUT 


The input is a binary format, high density, magnetic tape on Servo unit 2, 
of any number of files and records. The maximum size record that can be handled 
is 77711-K (in octal) where K is the storage location at which the program is loaded. 
Since K is atleast 136, the master bootstrap tape which has an initial record of 
77642 words cannot be duplicated by this program. Duplicate copies of the bootstrap 
tape must be made by SYSLOADER (see the write-up elsewhere in this memo for 
details). 


OUTPUT 


The output is a copy of the input tape. It is written on Servo unit 3. 

When each file is written the number of records in that file is displayed (in 
octal) in index register 2. The total number of files written on the tape is displayed 
in index register l. 

Any other status word, but a normal or end-of-file indication, causes the 
program to stop. Any troubles with the tape must be fixed, or a new tape loaded. 
Pushing HIGH SPEED initiates duplication of the next tape. 
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UPDATER 


INTRODUCTION 


Each program included in the dynamic Haystack Pointing System is recorded 
on one of three Master System magnetic tapes* in SPURT 321 format’ . As individual 
programs change, a method is needed to update the particular Master System Tape 
(MST) on which it appears. A Haystack Pointing System support program, called 
UPDATER, was written for this purpose. 


INPUT 


There are three inputs to UPDATER, the particular MST to be updated, the 
tape containing new versions of existing programs and/or additional new programs, 


and, via the typewriter, the deletions (if any) that are to be made from the new MST. 
A. Old Master System Tape 


The primary input is the old MST. This must contain at least one program in 
SPURT 321 format. These programs must be separated from each other by end-of- 
record marks and not end-of-file marks. The last program is followed by an 


end-of-file mark or a change of format (non-SPURT 321). 
B. Correction Tape 


All programs to replace programs on the old MST and all programs to be added 
to the new MST must appear on a second magnetic tape in format identical to the old 
tape. 

One system convention demands that the second word of memory occupied by 
each program contain a five Fieldata character System Name which is that program's 
unique identifier. This System Name is the means by which UPDATER distinguishes 


each program. 


* (1) Master In-Core Programs Tape (2) Master Celestial Computation Programs 
Tape (3) Master Data Processing Programs Tape. 


+ SPURT 321 format is a relative bi-octal format used as input to SPURT III. 
It is described in the REX manual, Appendix A, section B. 
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When the same System Name appears on both the old MST and the correction 
tape, the program from the correction tape will replace the old one on the new MST 
being written. Any programs which appear on the correction tape but not on the old 
tape will be added at the end of the new MST. 


os Deletions 


At the outset, the program stops and asks for the System Names of programs 
to be erased from the old tape. The five character System Names should be typed, 
separated by the special character (|) on the keyboard and ended by a carriage return. 

Programs whose names are listed here will not appear on the new MST. If 
there are to be no erasures, simply carriage return. 

Errors at the keyboard can be corrected by striking the ' key for each char- 


acter to be changed. 
OUTPUT 


The output is a new Master System Tape in the same format as the input. It 


is simply the old tape with additions, replacements and deletions. 
PROGRAM LOGIC 


SPURT listings 210, 211, 212 appear in Appendix A. 

From BEGIN through FIRSTERASE the program asks for erasures and makes 
a table, called ERASELIST, from the list typed at the console. 

From FIRSTERASE + 4 through CSLISTED, UPDATER searches the correc - 
tion tape and makes a table, called CHANGELIST, of all the System Names it finds. 

Starting at CKNEXTOLD it picks up a System Name from the old tape and 
checks it with both CHANGELIST and ERASELIST. 

If the name is on neither list, the program is copied from the old tape to the 
new. If it is in CHANGELIST, the program is skipped on the old tape and the program 
of the same name is copied from the correction tape to the new tape. If it isin 
ERASELIST the program is simply skipped on the old and new tapes. After any of 
these three alternatives the program returns to CKNEXTOLD. 

This loop is terminated by either an end-of-file mark or a change of format 
on the old tape. At that time, UPDATER jumps to EOF where CHANGELIT is 
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searched and all programs not previously copied to the new tape are added to the end 


of it. 


The program then writes an end-of-file mark on the new tape and rewinds all 


three tapes. Unless jump key I is on, a log of the old MST is typed on the console 


typewriter and, unless jump key 2 is on, a log of the new MST is typed on the con- 


sole typewriter. UPDATER now stops ready to recycle when the high-speed button is 


depressed. 

OPERATION 

A. Load the UPDATER program at some convenient location using TOPS. 

B. Mount the old Master System Tape to be updated on servo 1 (normally 
drive B). 

C. Mount a corrective tape, containing new programs and/or new versions 
of old programs on servo 2 (tape unit C). 

D. Mount a blank tape on servo 3 (tape unit D) to receive the new version of 
the particular Master System Tape. 

E. Start at the load location. 

F. The program will stop and ask for any deletions. If there are any, type 


their five character system names, separated by the () character and 
terminated with a carriage return. If there are none, type a carriage 


return. 
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